home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d949.lha
/
BBBBS
/
BBBBS65.lha
/
rexx
/
bbsALPHA.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-07-15
|
1KB
|
60 lines
/*
$VER: 5.3 bbsALPHA.rexx 15 Jul 1992 (15.7.92)
copyright 1991-92 Richard Lee Stockton * FREELY DISTRIBUTABLE
*/
arcfile=''
arcfile='Text/FileList' /* delete this line for no archive of filelist */
IF arcfile='' THEN SIGNAL GETOUT
bbspath=GETCLIP('BBS_path')
libpath=GETCLIP('BBS_libpath')
PARSE ARG extension arccom
IF extension='' THEN
DO
extension='.lzh'
arccom='lharc >ram:junk -m m'
END
ELSE extension='.'extension
arcfile=arcfile||extension
CALL OPENPORT('bbsALPHA')
CALL DELETE(libpath||arcfile)
libpath2=libpath
IF RIGHT(libpath,1)='/' THEN libpath2=LEFT(libpath,LENGTH(libpath)-1)
ADDRESS COMMAND 'C:COPY' bbspath'Lists/Files.ALPHA' libpath2
CALL CLOSEPORT('bbsALPHA')
ADDRESS COMMAND 'C:CD' libpath2'0A'x||arccom arcfile 'Files.ALPHA'
CALL DELETE('ram:junk')
x=OPEN(f,bbspath'FileNotes/'arcfile,'R')
IF x=0 THEN CALL GETOUT
lynes.=''
DO i=1
line=READLN(f)
IF EOF(f) THEN LEAVE i
lynes.i=line
END
lynes.0=i-1
CALL CLOSE(f)
filesize=WORD(STATEF(libpath||arcfile),2)
lynes.2=OVERLAY(filesize 'bytes',lynes.2,41)
lynes.3=OVERLAY(DATE() TIME('C')' ',lynes.3,41)
x=OPEN(f,bbspath'FileNotes/'arcfile,'W')
IF x=0 THEN CALL GETOUT
DO i=1 TO lynes.0
CALL WRITELN(f,lynes.i)
END
CALL CLOSE(f)
SAY arcfile 'has been updated.'||'0D'x
GETOUT:
CALL CLOSEPORT('bbsALPHA')
CALL SETCLIP('BBS_maint')
EXIT;
RETURN
/* end of bbsALPHA.rexx */